perm filename CCRMA[NEW,LCS]1 blob sn#536658 filedate 1980-09-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	3	K=X
C00003 ENDMK
CāŠ—;
3	K=X
	A=RPOS(1,K)
	B=RPOS(1,K+1)
	R2=A+(B-A)*(X-K)
	IF(IX22.NE.0)RETURN
C GO BACK IF SETTING POSITION WITH 'CP'
	VZ=RN(ISET+9)
	IF(VZ.GE.6.0)GO TO 55
C NEXT FOR VERY SHORT SYLLABLES -- SHIFTS THEM TO LEFT
	K=RN(ISET+2)
CC	A=1.5615+1.-((VZ-2.16)*1.5625)/6.0
CC	R2=R2+(1.+(6.0-VZ)/3.84)*RSTJ2
CCC	A=2.5625-(VZ-2.16)*.2604
	A=2.5625-(VZ-2.16)*.2
	R2=R2+(A-VZ/3.84)*RSTFAC(K)
55	RN(ISET+3)=R2
	IF(KK.GT.0)GO TO 5
C  NEXT FOR PAIRS OF NUMS.